home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / tool7v13 / demoscr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-25  |  1.2 KB  |  46 lines
  1. Program DemoScreen;
  2.  
  3. { Purpose....... Demonstrates the use of the following units: screen
  4.   Comments...... None
  5.   Author........ Thayne Breetzke
  6.   Date.......... 31 March 1994                                               }
  7.  
  8. Uses
  9.   Crt,
  10.   Input,
  11.   Cursor,
  12.   Screen;
  13.  
  14.  
  15. Var
  16.   Count     : Byte;
  17.   ScrBuffer : ScrBufferRec;
  18.   CState    : CStateRec;
  19.  
  20. Begin
  21.   TextAttr := 7;
  22.   SaveCursor(InsertKey,CState);
  23.   CursorOff;
  24.   SaveArea(1,1,80,25,ScrBuffer);
  25.   For Count := 0 to 6 do
  26.     Begin
  27.       ChangeAttr(Count*4+1,Count+1,80-(Count*4),25-Count,0+(7-Count)*16);
  28.       Delay(50)
  29.     end;
  30.   WriteXY(34,13,'Press a key...',7+1*16+128);
  31.   WaitForKeypress;
  32.   For Count := 1 to 13 do
  33.     Begin
  34.       ScrollUp(1,1,80,13,1,7);
  35.       ScrollDown(1,13,80,25,1,7);
  36.       ScrollRight(40,1,80,25,1,7);
  37.       ScrollLeft(1,1,39,25,1,7);
  38.       Delay(5)
  39.     end;
  40.   RestoreArea(ScrBuffer);
  41.   RestoreCursor(CState);
  42.   Writeln('Display type   = ',DisplayType,' (',DisplayTypeDesc(DisplayType),')');
  43.   Writeln('Video mode     = ',VideoMode,' (',VideoModeDesc(VideoMode),')');
  44.   Writeln('Rows on screen = ',RowsOnScreen);
  45.   Writeln('Cols on screen = ',ColsOnScreen);
  46. end.